home *** CD-ROM | disk | FTP | other *** search
/ Univers Interactif 5 / Univers Mac Interactif - Issue 05.iso / mac / dirjapon / takemura / shono.dir / 00015_Script_15 < prev    next >
Text File  |  1995-08-11  |  264b  |  18 lines
  1. on poirot x
  2.   set z=the timer
  3.   repeat while the timer<z+x
  4.     updatestage
  5.   end repeat
  6. end 
  7.  
  8. on tourne
  9.   set x=the castnum of sprite 3
  10.   set x=x+1
  11.   if x=8 then set x=3
  12.   puppetsprite 3,true
  13.   set the castnum of sprite 3 to x
  14.   updatestage
  15. end
  16.  
  17.  
  18.